home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / CDECT.BAS < prev    next >
BASIC Source File  |  1992-08-16  |  499b  |  15 lines
  1. FUNCTION pcrCarrierDetect% (Com%)
  2.  
  3.    'Purpose : Detects carrier.  
  4.    'Input   : 1 - 4 for Com ports ... assumes changed irqs if > 2
  5.    'Return  : -1 if carrier detected, 0 if not CD, 2 if out of range
  6.  
  7.    pcrCarrierDetect% = 0
  8.    IF Com% = 1 THEN Addr = &H3FE
  9.    IF Com% = 2 THEN Addr = &H2FE
  10.    IF Com% = 3 THEN Addr = &H3EE
  11.    IF Com% = 4 THEN Addr = &H2EE
  12.    IF Addr = 0 THEN pcrCarrierDetect% = 2: EXIT FUNCTION
  13.    IF (INP(Addr) AND 128) THEN pcrCarrierDetect% = -1
  14. END FUNCTION
  15.